home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / bbs / cnet5demo.lha / cnet / ircrexx / modetrap.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-23  |  440b  |  16 lines
  1. /* ORC - TRAP MODE                                                 */
  2. /* '/alias <password> trap1----006 modetrap.rexx MODE              */
  3. options results
  4. parse arg orcport user cmd chan mode args
  5.  
  6. /*  :pascoe!~pascoe@205.162.185.177 MODE #bible +b *!*test@* */
  7.  
  8. if show('P', orcport) then do
  9.   address value orcport
  10.     cnetirccmd '/"hello'
  11.     if pos('MIIND', user) & (pos('+b', mode)) then
  12.       cnetirccmd '/mode 'chan' -b 'args
  13. end
  14.  
  15.  
  16.